home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / Color Bars (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  342b  |  15 lines
  1. 0 poke53280,0:poke53281,6:poke646,1
  2. 1 print"[147]commodares problem #30-42
  3. 2 [153]"    color bars":[153]
  4. 3 [143] solution by
  5. 4 [143]     bing perry
  6. 5 [143]
  7. 10 clmem[178]241 : [139] [195](ds$)[178]0 [167] clmem[178]646
  8. 20 hld[178]0:rep[178]1:ctr[178]1
  9. 30 rnr[178][181]([187](0)[172]16)
  10. 40 [151] clmem,rnr:[129] i[178]1 [164] rep:[153] [199](65[170]rnr);:[130]
  11. 50 [139] rnr[178]hld [167] ctr[178]ctr[170]1:[137] 70
  12. 60 ctr[178]1
  13. 70 [139] ctr[177]rep [167] rep[178]ctr
  14. 80 hld[178]rnr : [137] 30
  15.